Hyper Stacks 1994 May/Hyper Stacks (Pacific HiTech)(1994)[Mac].iso/HyperTalk/Stack Starter ß.976/Stack Starter fl.976/card_7555.txt

Text File | 1988-08-03 | 21.4 KB | 992 lines

-- card: 7555 from stack: in.976
-- bmap block id: 8345
-- flags: 0000
-- background id: 2295
-- name: the button breeder


-- part 1 (button)
-- low flags: 00
-- high flags: 8004
-- rect: left=28 top=104 right=154 bottom=67
-- title width / last selected line: 0
-- icon id / first selected line: 4354 / 4354
-- text alignment: 1
-- font id: 0
-- text size: 14
-- style flags: 16128
-- line height: 19
-- part name: Create
----- HyperTalk script -----
on mouseUp
  put "Please hold the command Key down for full options"
  doMenu "New Button"
  hide msg
end mouseUp


-- part 2 (button)
-- low flags: 00
-- high flags: 8004
-- rect: left=70 top=104 right=154 bottom=109
-- title width / last selected line: 0
-- icon id / first selected line: 31 / 31
-- text alignment: 1
-- font id: 0
-- text size: 14
-- style flags: 16128
-- line height: 19
-- part name: Fonts
----- HyperTalk script -----
on mouseUp
  set icon of me to 15421
  play "Click"
  set icon of me to 31
  play "Click"
  changeFont
end mouseUp


-- part 3 (button)
-- low flags: 00
-- high flags: 8000
-- rect: left=28 top=157 right=207 bottom=67
-- title width / last selected line: 0
-- icon id / first selected line: 4227 / 4227
-- text alignment: 1
-- font id: 0
-- text size: 14
-- style flags: 16128
-- line height: 19
-- part name:
----- HyperTalk script -----
on mouseUp
  set icon of me to 4225
  play "click"
  set icon of me to 4227
  play "click" fe
  scroll R
  go to card "pushbuttons and switches"
end mouseUp



-- part 4 (button)
-- low flags: 00
-- high flags: A000
-- rect: left=70 top=157 right=207 bottom=108
-- title width / last selected line: 0
-- icon id / first selected line: 4363 / 4363
-- text alignment: 1
-- font id: 0
-- text size: 14
-- style flags: 16128
-- line height: 19
-- part name:
----- HyperTalk script -----
on mouseUp
  set icon of me to 4365
  set icon of me to 4364
  set icon of me to 4363
  scroll R
  go to card "multi-icon buttons"
end mouseUp


-- part 5 (button)
-- low flags: 00
-- high flags: A004
-- rect: left=28 top=245 right=295 bottom=67
-- title width / last selected line: 0
-- icon id / first selected line: 4188 / 4188
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Info
----- HyperTalk script -----
on mouseUp
  do short name of me
end mouseUp



-- part 6 (button)
-- low flags: 00
-- high flags: 8004
-- rect: left=70 top=245 right=295 bottom=109
-- title width / last selected line: 0
-- icon id / first selected line: 4179 / 4179
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Map
----- HyperTalk script -----
on mouseUp
  doMenu short name of me
end mouseUp


-- part 7 (button)
-- low flags: 80
-- high flags: A002
-- rect: left=127 top=79 right=96 bottom=264
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Double-click Here
----- HyperTalk script -----
on mouseUp
  if first word of the short name of me is "card" then
    set the name of me to "Double-click Here"
    exit mouseUp
  end if
  if the short name of me is "Double-click Here" then
    set the name of me to "Type name of document to be opened here with Type application name here"
  end if
  put the ticks into clock
  repeat until the mouseClick
    if clock > 30 then
      if first word of the short name of me is "card" then
        set the name of me to "Double-click Here"
        exit mouseUp
      end if
      if the short name of me is "Double-click Here" then
        exit mouseUp
      end if
      if the short name of me is "Type name of document to be opened here with Type application name here" then
        set the name of me to "Double-click Here"
        exit mouseUp
      end if
      put offset ("with", short name of me) into lim1
      put char 1 to lim1-2 of short name of me into doc1
      get length (short name of me)
      put char lim1+5 to it of short name of me into apl1
      open doc1 with apl1
      exit mouseUp
    end if
  end repeat
  put the short name of me into nam1
  put offset ("with", short name of me) into lim1
  put char 1 to lim1-2 of short name of me into doc1
  get length (short name of me)
  put char lim1+5 to it of short name of me into apl1
  ask "Open what non-HyperCard document?" with doc1
  set the name of me to it
  put it into doc2
  ask "What application does this document require" with apl1
  if it is empty then
    put apl1 into it
  end if
  put short name of me && "with" && it into temp
  set the name of me to temp
  put it into apl2
  if the short name of me is "Type name of document to be opened here with Type application name here" then
    set the name of me to "Double-click Here"
    exit mouseUp
  end if
  if first word of the short name of me is "card" then
    set the name of me to nam1
    exit mouseUp
  else
    open doc2 with apl2
  end if
  pass mouseUp
end mouseUp


-- part 8 (button)
-- low flags: 80
-- high flags: A002
-- rect: left=127 top=98 right=114 bottom=264
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Sort Cards by Name
----- HyperTalk script -----
on mouseUp
  lockcard
  push card
  answer "Sort all cards of this stack according to:" with "First Name" or "Last Name" or "Cancel"
  if it is "Cancel" then exit mouseUp
  put it into findName
  ask "Name of field where names are" with "Type Card or Field & Name here."
  if it is "Cancel" then exit mouseUp
  put it into findField
  if findName is "First Name" then
    go to first card
    find findField
    if the result <> empty then answer "Sorry, can't find that field."
    else
      sort by first word of first line of findField
      answer "Sort has been successfully completed."
    end if
  else if findName is "Last Name" then
    go to first card
    find findField
    if the result <> empty then answer "Sorry, can't find that field."
    else
      sort by last word of first line of findField
      answer "Sort has been successfully completed."
    end if
  end if
  pop card
end mouseUp



-- part 9 (button)
-- low flags: 80
-- high flags: A002
-- rect: left=127 top=116 right=134 bottom=264
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Sort Cards by Num.
----- HyperTalk script -----
on mouseUp
  lockcard
  push card
  answer "Sort all cards of this stack according to:" with "Ascending" or "Descending" or "Cancel"
  if it is "Cancel" then exit mouseUp
  put it into findNumber
  ask "Name of field where numbers are" with "Type Card or Field & Name here."
  if it is "Cancel" then exit mouseUp
  go to first card
  find it
  if the result <> empty then answer "Sorry, can't find that field."
  else if findNumber is "Ascending" then
    Sort ascending numeric by it
    answer "Sort has been successfully completed."
  else if findNumber is "Descending" then
    Sort Descending numeric by it
    answer "Sort has been successfully completed."
  end if
  pop card
end mouseUp



-- part 10 (button)
-- low flags: 80
-- high flags: A002
-- rect: left=127 top=136 right=153 bottom=264
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: HomeCard Icon
----- HyperTalk script -----
on mouseUp
  InstallHomeCardIcon
end mouseUp



-- part 11 (button)
-- low flags: 80
-- high flags: 8002
-- rect: left=127 top=155 right=172 bottom=264
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Don't Click Here!
----- HyperTalk script -----
on mouseUp
  overLoad
end mouseUp


-- part 12 (button)
-- low flags: 80
-- high flags: 8002
-- rect: left=127 top=174 right=191 bottom=264
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Crash
----- HyperTalk script -----
on mouseUp
  doMenu short name of me
end mouseUp





-- part 13 (button)
-- low flags: 80
-- high flags: A002
-- rect: left=127 top=193 right=209 bottom=264
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Control Panel
----- HyperTalk script -----
on mouseUp
  doMenu short name of me
end mouseUp



-- part 14 (button)
-- low flags: 80
-- high flags: A002
-- rect: left=127 top=211 right=227 bottom=264
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Find ....
----- HyperTalk script -----
on mouseUp
  Ask "Find what item?" with "Type name of item here."
  if it is "Type name of item here." then exit mouseUp
  put it into findItem
  put false into compare
  repeat until compare
    find findItem
    repeat with x= 1 to 500
    end repeat
    answer "Find:" && (findItem) & "?" with "Yes" or "No" or "Cancel"
    if it is "Yes" then put true into compare
    if it is "Cancel" then exit mouseUp
    if it is "No" then send mouseUp to me
  end repeat
end mouseUp





-- part 15 (button)
-- low flags: 80
-- high flags: A000
-- rect: left=127 top=229 right=274 bottom=204
-- title width / last selected line: 0
-- icon id / first selected line: 32670 / 32670
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Show All Cards
----- HyperTalk script -----
on mouseUp
  if icon of me is 32670 then
    set icon of me to 26455
    set name of me to "Stop"
    play "Click"
    put the name of this card into start
    show all cards
    if the name of this card is not start then
      go to prev card
    end if
  end if
  if icon of me is 26455 then
    set icon of me to 32670
    play "Click"
    set name of me to "Show All Cards"
    exit mouseUp
  end if
  exit mouseUp
  pass mouseUp
end mouseUp










-- part 16 (button)
-- low flags: 80
-- high flags: A003
-- rect: left=205 top=229 right=274 bottom=264
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Panic
----- HyperTalk script -----
on mouseUp
  doMenu short name of me
end mouseUp





-- part 17 (button)
-- low flags: 80
-- high flags: A004
-- rect: left=127 top=276 right=301 bottom=194
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 14
-- style flags: 16640
-- line height: 18
-- part name: Hello
----- HyperTalk script -----
on mousedown
  put the mouseloc into myPlace
  put item 1 of myPlace - 20 into horiz
  put item 2 of myPlace - 10 into vert
  get PopUpMenu("Hello;my;name;is;Rob", 5, vert, horiz)
  put "You chose item" && it
end mousedown



-- part 18 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=331 top=138 right=157 bottom=357
-- title width / last selected line: 0
-- icon id / first selected line: 5061 / 5061
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  if (the clickloc) < (loc of me) then
    scroll L
    go this card
  else
    scroll R
    go this card
  end if
end mouseUp


-- part 19 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=328 top=161 right=184 bottom=360
-- title width / last selected line: 0
-- icon id / first selected line: 5059 / 5059
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Go to prev card
----- HyperTalk script -----
on mouseUp
  if (the clickloc) < (loc of me) then
    scroll L
    go this card
  else
    scroll R
    go this card
  end if
end mouseUp


-- part 20 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=335 top=189 right=213 bottom=354
-- title width / last selected line: 0
-- icon id / first selected line: 5062 / 5062
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  set icon of me to 5062
  if (item 2 of the clickLoc) < (item 2 of loc of me) then
    scroll U
    go this card
  else
    scroll D
    go this card
  end if
end mouseUp



-- part 21 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=335 top=220 right=250 bottom=353
-- title width / last selected line: 0
-- icon id / first selected line: 5060 / 5060
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  if (item 2 of the clickLoc) < (item 2 of loc of me) then
    scroll U
    go this card
  else
    scroll D
    go this card
  end if
end mouseUp



-- part 22 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=367 top=136 right=159 bottom=399
-- title width / last selected line: 0
-- icon id / first selected line: 5065 / 5065
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Go to prev card
----- HyperTalk script -----
on mouseUp
  do short name of me
end mouseUp



-- part 23 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=368 top=161 right=183 bottom=402
-- title width / last selected line: 0
-- icon id / first selected line: 5066 / 5066
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Go To Next Card
----- HyperTalk script -----
on mouseUp
  do short name of me
end mouseUp



-- part 24 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=448 top=199 right=232 bottom=470
-- title width / last selected line: 0
-- icon id / first selected line: 5068 / 5068
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Pop Card
----- HyperTalk script -----
on mouseUp
  do short name of me
end mouseUp



-- part 25 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=368 top=185 right=216 bottom=400
-- title width / last selected line: 0
-- icon id / first selected line: 5071 / 5071
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Pop Card
----- HyperTalk script -----
on mouseUp
  do short name of me
end mouseUp



-- part 26 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=368 top=219 right=251 bottom=399
-- title width / last selected line: 0
-- icon id / first selected line: 5073 / 5073
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Pop Card
----- HyperTalk script -----
on mouseUp
  do short name of me
end mouseUp



-- part 27 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=410 top=138 right=161 bottom=442
-- title width / last selected line: 0
-- icon id / first selected line: 5063 / 5063
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Go To Prev Card
----- HyperTalk script -----
on mouseUp
  do short name of me
end mouseUp



-- part 28 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=411 top=161 right=183 bottom=445
-- title width / last selected line: 0
-- icon id / first selected line: 5064 / 5064
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Go To Next Card
----- HyperTalk script -----
on mouseUp
  do short name of me
end mouseUp



-- part 29 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=447 top=150 right=183 bottom=473
-- title width / last selected line: 0
-- icon id / first selected line: 5069 / 5069
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Pop Card
----- HyperTalk script -----
on mouseUp
  do short name of me
end mouseUp



-- part 30 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=411 top=184 right=217 bottom=443
-- title width / last selected line: 0
-- icon id / first selected line: 5070 / 5070
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Pop Card
----- HyperTalk script -----
on mouseUp
  do short name of me
end mouseUp



-- part 31 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=411 top=219 right=250 bottom=442
-- title width / last selected line: 0
-- icon id / first selected line: 5072 / 5072
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Pop Card
----- HyperTalk script -----
on mouseUp
  do short name of me
end mouseUp



-- part 32 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=451 top=266 right=300 bottom=485
-- title width / last selected line: 0
-- icon id / first selected line: 6153 / 6153
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Lower Right Dog-Ear
----- HyperTalk script -----
on mouseUp
  set icon of me to 6153
  if (item 1 of the clickLoc) - (item 1 of the rect of the target) < (item 4 of the rect of the target) - (item 2 of the clickLoc) then
    scroll L
    go this card
  else
    scroll R
    go this card
  end if
end mouseUp


-- part 33 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=316 top=268 right=300 bottom=349
-- title width / last selected line: 0
-- icon id / first selected line: 6150 / 6150
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Lower Left Dog-Ear
----- HyperTalk script -----
on mouseUp
  if ((item 3 of the rect of the target) - (item 1 of the clickLoc) < (item 4 of the rect of the target) - (item 2 of the clickLoc)) then
    scroll R
    go this card
  else
    scroll L
    go this card
  end if
end mouseUp


-- part 34 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=357 top=264 right=295 bottom=440
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Multi-Icon Buttons
----- HyperTalk script -----
on mouseUp
  scroll R
  go card "multi-icon buttons"
end mouseUp



-- part 35 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=27 top=210 right=224 bottom=109
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 9
-- style flags: 10496
-- line height: 12
-- part name:
----- HyperTalk script -----
on mouseUp
  if card field id 35 is "More Buttons" then
    put "Hide Buttons" into card field id 35
    repeat with this = 7 to 17
      show btn id this
    end repeat
  else
    lockcard
    put "More Buttons" into card field id 35
    repeat with this = 17 down to 7
      hide btn id this
    end repeat
  end if
end mouseUp


-- part 36 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=316 top=80 right=112 bottom=348
-- title width / last selected line: 0
-- icon id / first selected line: 6151 / 6151
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Upper Left Dog-Ear
----- HyperTalk script -----
on mouseUp
  set icon of me to 6151
  if (item 1 of the clickLoc) - (item 1 of the rect of the target) < (item 4 of the rect of the target) - (item 2 of the clickLoc) then
    scroll L
    go this card
  else
    scroll R
    go this card
  end if
end mouseUp


-- part 37 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=454 top=80 right=112 bottom=485
-- title width / last selected line: 0
-- icon id / first selected line: 6152 / 6152
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Upper Right Dog-Ear
----- HyperTalk script -----
on mouseUp
  set the icon of me to 6152
  if ((item 3 of the rect of the target) - (item 1 of the clickLoc) < (item 4 of the rect of the target) - (item 2 of the clickLoc)) then
    scroll R
    go this card
  else
    scroll L
    go this card
  end if
end mouseUp


-- part 38 (button)
-- low flags: 00
-- high flags: E004
-- rect: left=93 top=311 right=327 bottom=152
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 204
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Buttons
----- HyperTalk script -----
on mouseUp
  set hilite of me to true
  beep
  answer "You're already in" && quote & short name of me & quote & "."
end mouseUp


-- part contents for background part 56
----- text -----
the button breeder

-- part contents for background part 78
----- text -----
Prev Card: the allover analyzer

-- part contents for background part 79
----- text -----
Next Card: pushbuttons and switches

-- part contents for card part 35
----- text -----
More Buttons

-- part contents for background part 108
----- text -----
Open Aplication
Organizational Chart
OverLoad

-- part contents for background part 97
----- text -----
Date & Time
DeProtect Stack
Dedications
Descriptions
Digitized Sounds
Disk Space Available
Don't Click Here
Don't Panic

-- part contents for background part 124
----- text -----




-- part contents for background part 83
----- text -----
49.06 K

-- part contents for background part 68
----- text -----
205,115

-- part contents for background part 67
----- text -----
Mouse Location:

-- part contents for background part 82
----- text -----
Free Space: